home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / Police.Dxr / 00087.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  612 b   |  20 lines
  1. on answerHilite
  2.   repeat with T = 1 to the number of chars in field "phone"
  3.     if char T of field "phone" <> "-" then
  4.       set phoneSound to char T of field "phone"
  5.       set tempSprite to integer(phoneSound) + 22
  6.       set phoneSound to phoneSound & ".s"
  7.       puppetSound(phoneSound)
  8.       set the castNum of sprite tempSprite to the castNum of sprite tempSprite + 1
  9.       updateStage()
  10.       repeat while soundBusy(1)
  11.       end repeat
  12.       wait(30)
  13.       set the castNum of sprite tempSprite to the castNum of sprite tempSprite - 1
  14.       updateStage()
  15.       wait(10)
  16.     end if
  17.   end repeat
  18.   wait(15)
  19. end
  20.